home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / Codice / CRobots / Codice Robot anni precedenti / CR2-SRC.ZIP / PHOBOS_1.R < prev    next >
Encoding:
Text File  |  1992-09-20  |  2.2 KB  |  82 lines
  1. /* -------------------------------------------------------------- */
  2. /*  ROBOT:          Phobos                                        */
  3. /*  GENERAZIONE:    1                                             */
  4. /*  CATEGORIA:      TD-3                                          */
  5. /*  NOME UFFICIALE: PHOBOS_1                                      */
  6. /*                                                                */
  7. /*  CREATO nel Settembre 1992 DA:                                 */
  8. /*                                                                */
  9. /*                      Davide Tretene                            */
  10. /*                      Ant. Pietrangeli 14 M                     */
  11. /*                      00139 Roma                                */
  12. /*                      06 / 81.39.400   fino ad Ottobre 1992     */
  13. /*                      06 / 87.14.94.00 da Novembre 1992         */
  14. /* -------------------------------------------------------------- */
  15.  
  16.  
  17. int    Deg, Range, ORange;
  18.  
  19. main()
  20. {
  21.     Deg = 90; 
  22.     ORange = 100;
  23.  
  24.     drive (270, 100);                 /*  Direzione SUD a tutta velocita' */
  25.     while (loc_y() > 60) 
  26.         shoot();
  27.     drive (0, 0);
  28.     while (speed() > 49)  
  29.         shoot();
  30.  
  31.     while (1) {
  32.         if (!speed() && loc_x() < 500) 
  33.             drive (0, 0);
  34.  
  35.         drive (0, 100);                         /* Direzione EST */
  36.         while (loc_x() < 920) 
  37.             shoot();         /* Cerca e spara */
  38.         drive (180, 0);
  39.         while (speed() > 49)  
  40.             shoot();
  41.  
  42.         if (!speed() && loc_x() >= 500) 
  43.             drive (180, 0);
  44.  
  45.         drive (180, 100);                       /* Direzione OVEST */
  46.         while (loc_x() > 80)  
  47.             shoot();         /* Cerca e spara   */
  48.         drive (0, 0);
  49.         while (speed() > 49)  
  50.             shoot();
  51.     }
  52. }
  53.  
  54.  
  55. shoot ()
  56. {
  57.     if (Range = scan (Deg, 6)) {
  58.         if (Range < 70) 
  59.             Range = 70;
  60.         if (Range > ORange) 
  61.             cannon ( Deg, Range + 4 * (Range - ORange) / 5 );
  62.         else 
  63.             cannon ( Deg, 8 * Range / 9 );
  64.  
  65.         ORange = Range;
  66.     } else {
  67.         Deg -= 36;
  68.         while (!(Range = scan (Deg += 16, 8)))
  69.             ;
  70.         if (Range < 70) 
  71.             Range = 70;
  72.         if (Range > ORange) 
  73.             cannon ( Deg, Range + 4 * (Range - ORange) / 5 );
  74.         else 
  75.             cannon ( Deg, 8 * Range / 9 );
  76.  
  77.         ORange = Range;
  78.     }
  79. }
  80.  
  81.  
  82.